home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / st80_pr4.lha / st80_pre4 / MoDE / Temporary-User.st < prev    next >
Text File  |  1993-07-24  |  3KB  |  167 lines
  1. SemanticObject subclass: #W1Bk
  2.     instanceVariableNames: ''
  3.     classVariableNames: ''
  4.     poolDictionaries: ''
  5.     category: 'Temporary-User'!
  6.  
  7.  
  8. !W1Bk methodsFor: 'controller-msg'!
  9.  
  10. moveWindow: e 
  11.     "Shan 20 July 1990"
  12.  
  13.     target1 move!
  14.  
  15. toFront: e 
  16.     "Shan 25 May 1990"
  17.  
  18.     target1 mode obscuringRects size > 0 ifTrue: [target1 mode toFront]! !
  19.  
  20. SemanticObject subclass: #TestMarker
  21.     instanceVariableNames: ''
  22.     classVariableNames: ''
  23.     poolDictionaries: ''
  24.     category: 'Temporary-User'!
  25.  
  26.  
  27. SemanticObject subclass: #TestTitleBar
  28.     instanceVariableNames: ''
  29.     classVariableNames: ''
  30.     poolDictionaries: ''
  31.     category: 'Temporary-User'!
  32.  
  33.  
  34. !TestTitleBar methodsFor: 'controller-msg'!
  35.  
  36. moveWindow: e
  37.     target1 mode controller moveImage! !
  38.  
  39. TextButton subclass: #TestCloseBox
  40.     instanceVariableNames: ''
  41.     classVariableNames: ''
  42.     poolDictionaries: ''
  43.     category: 'Temporary-User'!
  44.  
  45.  
  46. SemanticObject subclass: #RoamTrigger
  47.     instanceVariableNames: ''
  48.     classVariableNames: ''
  49.     poolDictionaries: ''
  50.     category: 'Temporary-User'!
  51.  
  52.  
  53. !RoamTrigger methodsFor: 'controller-msg'!
  54.  
  55. triggerRoam: e
  56.     "target1 is the RoamBk.  Shan 20 July 1990"
  57.  
  58.     | org |
  59.     target1 attachModeTo: mode topMode at: 0@0 extent: mode topMode extent.
  60.     org _ mode unclippedDisplayBox origin + (20@0).
  61.     target1 target1 mode setUnclippedDisplayBoxOrigin: org .
  62.     target1 mode mapAndDisplay.
  63.     self eventQueue cursorPoint: org +20. "This is a hack.  Sould use marker center."
  64.     self eventQueue putBack: (e origin: org +20)! !
  65.  
  66. SemanticObject subclass: #RoamBk
  67.     instanceVariableNames: ''
  68.     classVariableNames: ''
  69.     poolDictionaries: ''
  70.     category: 'Temporary-User'!
  71.  
  72.  
  73. !RoamBk methodsFor: 'MMS-initializations'!
  74.  
  75. defaultMMSControllerClass
  76.     "Shan 20 July 1990"
  77.  
  78.     ^ActionController! !
  79.  
  80. !RoamBk methodsFor: 'controller-msg'!
  81.  
  82. action: e 
  83.     "Remove self. Return to the normal state. Shan 20 July 1990"
  84.  
  85.     target1 mode erase.
  86.     mode removeFromSuperMode.
  87.     mode unMap! !
  88.  
  89. SemanticObject subclass: #ZoomBt
  90.     instanceVariableNames: 'targetW '
  91.     classVariableNames: ''
  92.     poolDictionaries: ''
  93.     category: 'Temporary-User'!
  94.  
  95.  
  96. !ZoomBt methodsFor: 'controller-msg'!
  97.  
  98. zoom: e 
  99.     "Shan 20 July 1990"
  100.  
  101.     | r |
  102.     mode controller moveImageConstrained.
  103.     r _ 2 * mode corner y / mode superMode extent y.
  104.     target1 mode window: (targetW copy extent: targetW extent * r) rounded viewport: target1 mode viewport.
  105.     target1 mode display! !
  106.  
  107. SemanticObject subclass: #TestResizeBox
  108.     instanceVariableNames: ''
  109.     classVariableNames: ''
  110.     poolDictionaries: ''
  111.     category: 'Temporary-User'!
  112.  
  113.  
  114. !TestResizeBox methodsFor: 'controller-msg'!
  115.  
  116. resizeWindow: e
  117.     target1 mode controller bottomRightMoved! !
  118.  
  119. SemanticObject subclass: #TestWindow
  120.     instanceVariableNames: ''
  121.     classVariableNames: ''
  122.     poolDictionaries: ''
  123.     category: 'Temporary-User'!
  124.  
  125.  
  126. !TestWindow methodsFor: 'open/close'!
  127.  
  128. close: e
  129.     mode eraseAndUnMap! !
  130.  
  131. Object subclass: #NewDC
  132.     instanceVariableNames: 'display memory '
  133.     classVariableNames: ''
  134.     poolDictionaries: ''
  135.     category: 'Temporary-User'!
  136.  
  137.  
  138. !NewDC methodsFor: 'temp'!
  139.  
  140. buttonPushed: e
  141.     memory _ memory, e.
  142.     display displayText: memory!
  143.  
  144. clear: e
  145.     memory _ ''.
  146.     display displayText: memory! !
  147.  
  148. SemanticObject subclass: #TestRoamBox
  149.     instanceVariableNames: 'marker '
  150.     classVariableNames: ''
  151.     poolDictionaries: ''
  152.     category: 'Temporary-User'!
  153.  
  154.  
  155. Window subclass: #Window1
  156.     instanceVariableNames: ''
  157.     classVariableNames: ''
  158.     poolDictionaries: ''
  159.     category: 'Temporary-User'!
  160.  
  161.  
  162. !Window1 methodsFor: 'positioning'!
  163.  
  164. move
  165.     "Shan 20 July 1990"
  166.  
  167.     self mode controller moveFrame! !